home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1991 May & June
/
rerun-1991-05-06.d64
/
example a
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
619b
|
25 lines
1 if peek(719)<>141 then 110
5 print"[147]this is the first example for
6 [153]"profiler. press a key to contimue...
7 geta$:if a$="" then 7
8 clr
10 rem screen-blitz example (run profiler c64 first)
20 sys703:rem start timing here
30 a=int(rnd(0)*16)
40 b=int(a/4)+1
50 poke646,a
60 printmid$("[157][145]",b,1);" [157]";
70 c=c+1
80 ifc<1000then30
90 sys716:rem stop timing here
100 poke646,peek(53281)+1
110 rem continue with program...
120 print"[147]press a key to run analyzer again
130 [153]"to analyze this program.
140 get a$:if a$="" then 140
150 print"load"chr$(34)"profiler 64"chr$(34)","8"[145][145][145]
160 a$[178]"run"
170 a$[178]a$[170][199](13)
180 [151]631,13:[129]b[178]1[164][195](a$):[151]631[170]b,[198]([202](a$,b,1)):[130]:[151]198,10
190 [162]